class ckTimer	extends date	public property start_time as float	public property end_time as float	public sub ckTimer()		//the constructor		msgbox("Created new timer")	end sub	public sub StartTimer()		me.start_time = me.totalseconds		//me.end_time = me.start_time	end sub	public sub EndTimer()		me.end_time = me.totalseconds	end subend classsub main()   	dim timer1 as ckTimer	dim i as integer 	timer1 = new cktimer		i = timer1.parsedate("1/2/2012")	
	msgbox("timer1.year 2012=" & timer1.LongDate)
	//add one day
	timer1.TotalSeconds = timer1.TotalSeconds + 86400
	msgbox("timer1.year 2012=" & timer1.LongDate)end sub